home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 359 / def / director.def < prev    next >
Encoding:
Modula Definition  |  1989-01-09  |  2.2 KB  |  53 lines
  1. DEFINITION MODULE Directory ;
  2. (*              File :  Directory .def                                     *)
  3. (*              Function: Provide basic directory operations               *)
  4. (*              Date: July, 10,1985                                        *)
  5. (*              By: Morris                                                 *)
  6. (*                                                                         *)
  7. (*
  8. *    Copyright (c) 1985,1986,1987,1988,1989 by
  9. *    ana-systems, Foster City, California.
  10. *    All Rights Reserved.
  11. *
  12. *    This software is furnished under a license and may be used and copied
  13. *    only  in accordance with  the  terms  of  such  license and  with the
  14. *    inclusion of the above copyright notice.  This software or  any other
  15. *    copies thereof may not be provided or otherwise made available to any
  16. *    other  person.   No title to and ownership of the  software is  herby
  17. *    transferred.
  18. *
  19. *    The information in this software is  subject to change without notice
  20. *    and  should  not be construed as a commitment by ana-systems.   No
  21. *    warranty is implied or expressed.
  22. * 
  23. *  SCCID  = "1.1    1/26/86"; 
  24. *)
  25. (*                                                                         *)
  26. (*      History of Modifcation                                             *)
  27. (*      Date            Who                     Reasone                    *)
  28. (*                                                                         *)
  29. FROM Files IMPORT FileState;
  30.  
  31. EXPORT QUALIFIED
  32.    Rename,Delete;
  33.  
  34.  
  35.  
  36.   PROCEDURE Rename(  VAR  fromName : ARRAY OF CHAR;
  37.                      VAR  toName   : ARRAY OF CHAR;
  38.                      VAR  state    : FileState );
  39.   (* Rename file name "fromName" to file name "toName". IF file does
  40.      exit and read write premission are correct the state will be ok.
  41.     Other wise false *)
  42.      
  43.   PROCEDURE Delete (  VAR  fileName : ARRAY OF CHAR ;
  44.                        VAR state : FileState );
  45.  
  46.    (* Delete file fileName from the host operating system. If operation is
  47.       successfile and vaild, the state will be ok, otherwis will be set to
  48.       apporirate error messeage                                 *)
  49.  
  50.  
  51. END Directory.
  52.  
  53.